|
Was mache ich falsch.
Ziel ist es später mal aus einer Excel Datei den Inhalt mehrer Zellen zu kopieren und per Makro in die die Makro beinhaltende Exceldatei einzufügen.
Ich scheiter aber schon viel früher...
Zu Testzwecken arbeite ich erstmal nicht mit 2 Dateien, sondern will, ganz einfach eigentlich, aus der geöffneten Excel Datei den Text aus A1 im Tabellenblatt "Tabelle" 1 in eine Variable schreiben und diese ausgeben:
Dieser Code funktioniert und gibt mir "abc" aus A1 zurück:
Sub test()
Dim a As String
a = Sheets("Tabelle1").Range("A1").Value
MsgBox a
End Sub
Da ich bei mehreren Dateien, die Dateien aber gezielt ansprechen muss möchte ich das ganze direkt über Workbooks ansprechen, also:
Sub test()
Dim a As String
a = Workbooks("D:\Downloads\test.xlsm").Sheets("Tabelle1").Range("A1").Value
MsgBox a
End Sub
Dabei kriege ich immer den Laufzeitfehler 9 -> Index ausserhalb des gültigen Bereichs. Der Pfad und Dateiname des Workbooks ist korrekt. Tabelle1 heisst auch Tabelle1.... Kann mir nen Tip geben?
|